  10 :RETURN ;CLEAR 
  20 FOR X=-70TO 65STEP 8;BOX X,0,1,72,1;NEXT X;FOR Y=-36TO 36STEP 8;BOX -6,Y,128,1,1;NEXT Y
  25 A=-66;B=-32
  30 BOX A,B,7,7,3
  40 BOX A,B,7,7,3;A=A+JX(1)×8;IF A>65A=62
  50 IF A<-70A=-66
  60 B=B+JY(1)×8;IF B>36B=32
  65 IF TR(1)IF A>60GOTO 200
  70 IF B<-36B=-32
  80 BOX A,B,7,7,3;IF TR(1)IF KN(1)>0BOX A,B,7,7,1;GOTO 80
  90 IF TR(1)IF KN(1)<0BOX A,B,7,7,2;GOTO 30
 100 GOTO 40
 200 A=128;B=0;C=0;FOR Y=32TO -32STEP -8;FOR X=-66TO -10STEP 8;IF PX(X,Y)B=B+A
 210 A=A÷2;NEXT X;GOSUB 500;A=128;B=0;FOR X=-2TO 54STEP 8;IF PX(X,Y)B=B+A
 220 A=A÷2;NEXT X;GOSUB 500;A=128;B=0;NEXT Y;GOTO 1030
 500 @(C)=B;C=C+1;RETURN 
1020 %(Y)=V;Y=Y+W;RETURN 
1030 CLEAR ;NT=1;X=0;Y=20200;R=Y;W=2;Z=1020
1100 V=-43;GOSUB Z;V=6965;GOSUB Z
1110 V=10240;GOSUB Z;V=20210;GOSUB Z
1120 V=-13871;GOSUB Z;V=-1936;GOSUB Z
1130 V=-32690;GOSUB Z;V=12288;GOSUB Z
1140 V=2432;GOSUB Z;V=527;GOSUB Z
1150 V=-247;GOSUB Z;V=78;GOSUB Z
1160 W=1;Y=Y-W;FOR S=0TO CSTEP 2;IF @(S)=128IF @(S-1)=0CY=40;PRINT "DOES NOT COMPUTE!";L=1
1170 V=@(S);GOSUB Z;V=@(S+1);GOSUB Z;NEXT S
1190 %(20203)=10320;CALLR
1200 IF L=1L=0;GOTO 2000
1210 CY=0;PRINT "OK?";IF KP#13PRINT "COMPUTING!";GOTO 2000
1220 CLEAR ;:PRINT ;NT=0;TV=0;TV=1;FOR X=RTO YSTEP 2
1240 PRINT #1,"%(",X,")=",%(X)
1250 NEXT X;PRINT ":RETURN ;RUN 
1260 :RETURN ;STOP
2000 FOR Z=1TO 144;@(Z)=0;NEXT Z;A=0;FOR Y=-5TO 3;FOR X=0TO 15;A=A+1;IF PX(X,Y)@(A)=1
2010 NEXT X;NEXT Y;A=0;CLEAR ;FOR Y=-32TO 32STEP 8;FOR X=-66TO 54STEP 8;A=A+1;IF @(A)BOX X,Y,7,7,1
2020 NEXT X;NEXT Y;GOTO 20
RUN 
